home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / flitpln2.arc / FLITPLN2.BAS (.txt) next >
Encoding:
GW-BASIC  |  1984-10-08  |  16.4 KB  |  433 lines
  1. 1  'date 8/6/83rev10/7/83rev12/3/83REV8/30/84 FLITPLN2.BAS  '''
  2. 2  '                      revision 2.0
  3. 3  '       DON GULLICKSON  219 custer  LANDER, WYOMING  82520
  4. 4  '
  5. 5  '!!!!!!!!!!!!!!!!!!!!!! Use this program at your own risk !!!!!!!!!!!!!!!
  6. 6  '!!!!!!!!!!!  there is no guarantee as to the accuracy of data !!!!!!!!!!
  7. 7  '!!!!!!!!!!!!!!!!! or calculations !!!!! ----------- !!!!!!!!!!!!!!!!!!!!
  8. 9  DIM VOR$(20),D(20),T(20),CT(20),F(20),TF(20),RT(20),AIR$(20)
  9. 10  '
  10. 15  COLOR 7,9,1
  11. 16  '
  12. 17  GOTO 7000
  13. 18  KEY OFF
  14. 20  '
  15. 30  '
  16. 40  '
  17. 50  '
  18. 51  '
  19. 54  '
  20. 55  B1$="   LOCATION     DISTANCE     TIME EST   TIME ACTUAL   FUEL(##gph)"
  21. 56  B2$="                 leg/        leg/        leg/          leg/"
  22. 58  B3$="                    /to-go      /cuml         /cuml       /cuml "
  23. 59  B6$="   \         \       ####                      \         \"
  24. 60  B4$="         \      \###         ##          \   \         ##.#"
  25. 61  B5$="   \         \       ####       ##:##          \   \        ##.#"
  26. 67  '
  27. 68  '
  28. 69  ' program menu
  29. 70  CLS:COLOR 7:PRINT:PRINT:PRINT':PRINT TAB(26);"FLIGHT PLAN PROGRAM"
  30. 90  'PRINT TAB(33);"MENU"
  31. 91  QT$=CHR$(177)
  32. 92  PRINT "                    "QT$QT$QT$QT$QT$
  33. 93  PRINT "                    "QT$" "QT$" "QT$" AIN    FLIGHT PLAN PROGRAM"
  34. 94  PRINT "                    "QT$" "QT$" "QT$" ENU     ================="
  35. 100  PRINT"             ----------------------------------------------------":PRINT
  36. 110  PRINT TAB(20);"<1> Input --NEW-- flight plan data"
  37. 120  PRINT TAB(20);"<2> DISPLAY - flight log (on the screen)"
  38. 130  PRINT TAB(20);"<3> PRINT HARD COPY - of flight log "
  39. 140  PRINT TAB(20);"<4> SAVE - on disc flight log "
  40. 150  PRINT TAB(20);"<5> LOAD - previously saved flight plan"
  41. 155  PRINT TAB(20);"<6> ";:COLOR 4:PRINT "UTILITIES":COLOR 7
  42. 160  PRINT
  43. 170  COLOR 11: PRINT TAB(25);"ENTER SELECTION - 1 TO 6" : COLOR 6
  44. 180  PRINT
  45. 190  PRINT TAB(14);"Use knots and nautical miles or MPH and statute miles":COLOR 7
  46. 197  '
  47. 198  '
  48. 199  '  decision routes
  49. 200  A = VAL(INKEY$)
  50. 210  IF A=0 OR A>6 GOTO 200 ELSE ON A GOTO 1000,3000,4000,5000,6000,8000
  51. 980  '
  52. 990  '
  53. 997  '
  54. 998  '
  55. 999  '
  56. 1000  CLS:LOCATE 2,30:PRINT "CREATE NEW FLIGHT PLAN":COLOR 7:LOCATE 5,5: INPUT "ENTER GROUND SPEED           ", GS
  57. 1030  LOCATE 6,5: INPUT "ENTER FUEL BURN (gal/hr)     ", GALPERHR
  58. 1040  LOCATE 7,5: INPUT "DEPARTURE AIRPORT            ", D$
  59. 1050  LOCATE 8,8: COLOR 10: INPUT "Is data correct Y/N ? [Y]", Z$ :COLOR 6:IF Z$="Y" OR Z$="y" OR Z$="" GOTO 2000 ELSE GOTO 1000
  60. 2000  GOSUB 9000
  61. 2005  N = 0
  62. 2006  GOTO 2010
  63. 2007  PRINT "Redo last checkpoint and distance --"
  64. 2010  N = N + 1
  65. 2011  PRINT
  66. 2012  INPUT "      AIRPORT OR VOR CHECKPOINT (location)     ", VOR$(N)
  67. 2013  INPUT "      AIRWAY TO THIS CHECKPOINT (ie V128)      ", AIR$(N)
  68. 2014  INPUT "      DISTANCE TO CHECKPOINT                   ", D(N)
  69. 2054  COLOR 10: INPUT "       Is data correct Y/N ? [Y]", Z$ :COLOR 6: IF Z$="Y" OR Z$="y" OR Z$="" GOTO 2055 ELSE N = N-1 : GOTO 2007
  70. 2055  COLOR 12: INPUT "       Do you want another checkpoint Y/N ? [Y]", Z$ :COLOR 6: IF Z$ = "Y" OR Z$="y" OR Z$="" GOTO 2010 ELSE GOTO 2075
  71. 2070  '
  72. 2075  FOR N = 1 TO N
  73. 2077     T(N) =(60/GS)*D(N) : T(N) = T(N) + 0.5 : T(N) = INT(T(N))
  74. 2079     CT(N) = CT(N-1) + T(N)
  75. 2081     F(N) = (T(N)/60)*GALPERHR : TF(N) = TF(N-1) + F(N)
  76. 2083     RT = RT + D(N)
  77. 2085  NEXT
  78. 2090  GOTO 70
  79. 2097  '
  80. 2098  '
  81. 2099  '  display route
  82. 3000  CLS
  83. 3004  PRINT "                                                       GS = ";GS
  84. 3005  PRINT USING B1$;GALPERHR
  85. 3010  PRINT "------------------------------------------------------------------"
  86. 3020  PRINT B2$
  87. 3030  PRINT B3$
  88. 3038  RTT=RT
  89. 3040   FOR N = 1 TO N
  90. 3050     RT(N) = RTT - D(N)
  91. 3060     RTT = RT(N)
  92. 3070   NEXT N
  93. 3080  PRINT "------------------------------------------------------------------"
  94. 3090  PRINT USING B6$; D$,RT,"_____t'off"
  95. 3095  PRINT "------------------------------------------------------------------"
  96. 3100   FOR N = 1 TO N
  97. 3110     PRINT USING B4$; AIR$(N),D(N),T(N),"_____",F(N)
  98. 3120     PRINT USING B5$; VOR$(N),RT(N),CT(N)\60,CT(N) MOD 60,"_____",TF(N)
  99. 3122  PRINT "------------------------------------------------------------------"
  100. 3125     IF RT(N)=0 GOTO 3135
  101. 3126     IF D(N)=0 GOTO 3135
  102. 3130   NEXT N
  103. 3135  '
  104. 3140  COLOR 12: PRINT "    MENU -- press any key....": COLOR 6
  105. 3150  Z$=INKEY$
  106. 3160  IF Z$="" GOTO 3150
  107. 3170  CLS : GOTO 70
  108. 3997  '
  109. 3998  '
  110. 3999  '  print hard copy route
  111. 4000  CLS: 'LOCATE 10,12: PRINT "PRINTING HARD COPY......"
  112. 4001  ON ERROR GOTO 4500
  113. 4002  GOTO 4600  'route to choosing compressed mode
  114. 4003  LPRINT CHR$(18) CHR$(27) CHR$(50)     'normal size print
  115. 4004  GOTO 4009
  116. 4005  LPRINT CHR$(15) CHR$(27) CHR$(48)     'COMPRESSED PRINT
  117. 4009  LPRINT :LPRINT :LPRINT : ON ERROR GOTO 0
  118. 4010  CLS: LOCATE 10,12: PRINT "PRINTING HARD COPY......"
  119. 4012  LPRINT"  Aircraft #:"
  120. 4020  LPRINT
  121. 4030  LPRINT"  CLEARANCE:"
  122. 4040  LPRINT
  123. 4050  LPRINT"  Cleared via-"
  124. 4060  LPRINT
  125. 4070  LPRINT"  After T.O.^-"
  126. 4080  LPRINT
  127. 4090  LPRINT"  Dept freq-"
  128. 4100  LPRINT
  129. 4110  LPRINT"  S.Q.-"
  130. 4120  LPRINT:LPRINT:LPRINT:LPRINT
  131. 4125  LPRINT "                                        (EST GROUNDSPEED = ";GS;")"
  132. 4130  LPRINT USING B1$;GALPERHR
  133. 4140  LPRINT "------------------------------------------------------------------
  134. 4150  LPRINT B2$
  135. 4160  LPRINT B3$
  136. 4170  RTT=RT
  137. 4180   FOR N = 1 TO N-1
  138. 4190     RT(N) = RTT - D(N)
  139. 4200     RTT = RT(N)
  140. 4210   NEXT N
  141. 4220  LPRINT "------------------------------------------------------------------
  142. 4230  LPRINT USING B6$; D$,RT,"_____t'off"
  143. 4240  LPRINT "------------------------------------------------------------------
  144. 4250   FOR N = 1 TO N
  145. 4260     LPRINT USING B4$; AIR$(N),D(N),T(N),"_____",F(N)
  146. 4270     LPRINT USING B5$; VOR$(N),RT(N),CT(N)\60,CT(N) MOD 60,"_____",TF(N)
  147. 4280  LPRINT "------------------------------------------------------------------
  148. 4285     IF RT(N)=0 GOTO 4295
  149. 4287     IF D(N)=0 GOTO 4295
  150. 4290   NEXT N
  151. 4295  '
  152. 4297  LPRINT "                                                      arrival time
  153. 4298  LPRINT "                                               =====             "
  154. 4300  LPRINT CHR$(12)
  155. 4310  GOTO 70
  156. 4497  '
  157. 4498  '
  158. 4499  '  error handling routine
  159. 4500  IF ERR=25 OR ERR=24 OR ERR=27 THEN LOCATE 23,15:COLOR 23:PRINT "CHECK PRINTER":COLOR 7:RESUME
  160. 4510  ON ERROR GOTO 0
  161. 4600  CLS:PRINT:PRINT :INPUT "    DO YOU WANT COMPRESSED PRINTING (Y/N) ? [Y]",Z$
  162. 4610  IF Z$="Y" OR Z$="y" OR Z$="" THEN GOTO 4005 ELSE 4003
  163. 4997  '
  164. 4998  '
  165. 4999  ' save on disk
  166. 5000  CLS
  167. 5002  ON ERROR GOTO 5600
  168. 5005  LOCATE 3,28 : PRINT "SAVE FLIGHT PLAN ON DISK"
  169. 5010  LOCATE 5,5 :COLOR 3: FILES "*.X" : COLOR 6
  170. 5015  BEEP: PRINT: COLOR 5 : PRINT "              CAUTION ! FILE BY SAME NAME WILL BE OVERWRITTEN" : COLOR 6
  171. 5020  PRINT :PRINT "     ENTER FILENAME ";:COLOR 3:INPUT "  ",FILENAME$:COLOR 6
  172. 5021  ON ERROR GOTO 0
  173. 5022  'PRINT RIGHT$(FILENAME$,2)
  174. 5023  IF FILENAME$ = "" THEN GOTO 70
  175. 5025  'IF FILENAME$ ="*.X" OR FILENAME$ ="*.x" THEN 5030 ELSE 5500
  176. 5026  IF RIGHT$(FILENAME$,2)=".X" OR RIGHT$(FILENAME$,2)=".x" THEN 5030 ELSE 5500
  177. 5030  OPEN FILENAME$ FOR OUTPUT AS #1
  178. 5040  WRITE #1,D$
  179. 5042  PRINT D$
  180. 5045  WRITE #1,N
  181. 5047  PRINT N
  182. 5050    FOR N = 1 TO N
  183. 5055      IF D(N) = 0 GOTO 5080   'prevent saving long route overwrittenbyshort
  184. 5060      WRITE #1,AIR$(N),VOR$(N),D(N)
  185. 5065      PRINT AIR$(N);" ";VOR$(N);D(N)
  186. 5070    NEXT
  187. 5080  CLOSE
  188. 5090  COLOR 12: PRINT "         MENU  -- press any key....": COLOR 6
  189. 5100  Z$ = INKEY$
  190. 5120  IF Z$ = "" GOTO 6510
  191. 5130  CLS : GOTO 70
  192. 5497  '
  193. 5498  '
  194. 5499  '  error handling routine
  195. 5500  BEEP:PRINT :PRINT :COLOR 10:PRINT "  ***  FORMAT FOR FILES:  MUST END IN ``.X '' i.e. ``FILENAME$.X '' ***":COLOR 6:FOR B=1 TO 5000:NEXT : GOTO 5000
  196. 5597  '
  197. 5598  '
  198. 5600  CLS:PRINT :PRINT :PRINT "              THERE ARE NO FLIGHT PLAN FILES PRESENTLY DEFINED":COLOR 6:FOR B=1 TO 4000:NEXT:RESUME 5020
  199. 5610  ON ERROR GOTO 0
  200. 5997  '
  201. 5998  '
  202. 5999  '      load flight route from disk
  203. 6000  CLS
  204. 6005  GOSUB 9000
  205. 6006  ON ERROR GOTO 6600
  206. 6007  LOCATE 1,24 : PRINT "LOAD PREVIOUSLY STORED FLIGHT PLAN"
  207. 6010  LOCATE 3,5 :COLOR 3: FILES "*.X" : COLOR 6
  208. 6020  'PRINT         '''': PRINT "     SELECT APPROPRIATE FLIGHT PLAN ROUTE"
  209. 6025  ON ERROR GOTO 6700
  210. 6030  PRINT "     ENTER FILENAME:";:COLOR 3:INPUT "   ", FILENAME$:COLOR 6
  211. 6035  IF FILENAME$="" THEN GOTO 70
  212. 6040  LOCATE 22,1:PRINT "                                                                              ":OPEN FILENAME$ FOR INPUT AS #1
  213. 6045  ON ERROR GOTO 0
  214. 6046  CLS:PRINT :PRINT:PRINT "                      FLIGHT PLAN FILE IS:  "FILENAME$:PRINT
  215. 6050  INPUT #1,D$
  216. 6055  PRINT D$
  217. 6056  INPUT #1,N
  218. 6057  PRINT N
  219. 6060    FOR N = 1 TO N
  220. 6065    IF EOF(1) THEN GOTO 6100
  221. 6070      INPUT #1,AIR$(N),VOR$(N),D(N)
  222. 6080      PRINT AIR$(N);" ";VOR$(N);D(N)
  223. 6090    NEXT
  224. 6100  CLOSE
  225. 6105  PRINT
  226. 6110  INPUT "                      ENTER GROUNDSPEED          ",GS
  227. 6120  INPUT "                      ENTER FUEL BURN (gal/hr)   ",GALPERHR
  228. 6140  FOR N = 1 TO N
  229. 6200     T(N) =(60/GS)*D(N) : T(N) = T(N) + 0.5 : T(N) = INT(T(N))
  230. 6210     CT(N) = CT(N-1) + T(N)
  231. 6220     F(N) = (T(N)/60)*GALPERHR : TF(N) = TF(N-1) + F(N)
  232. 6230     RT = RT + D(N)
  233. 6250  NEXT
  234. 6500  PRINT :PRINT :PRINT:COLOR 12: PRINT "                        MENU  -- press any key....": COLOR 6
  235. 6510  Z$=INKEY$
  236. 6520  IF Z$ = "" GOTO 6510
  237. 6530  CLS : GOTO 70
  238. 6597  '
  239. 6598  '
  240. 6599  '  error trapping routine
  241. 6600  CLS:PRINT :PRINT :PRINT "              THERE ARE NO FLIGHT PLAN FILES PRESENTLY DEFINED":COLOR 7:FOR B=1 TO 4000:NEXT:RESUME 70
  242. 6698  '
  243. 6700  LOCATE 22,1:COLOR 10:CLOSE:PRINT "        *******  Sorry, no file by that name.  Please re-enter.  *******":PRINT "                         - OR press enter key to exit - ":COLOR 6:RESUME 6007
  244. 6710  ON ERROR GOTO 0
  245. 6996  '
  246. 6997  '
  247. 6998  ' 1st page heading
  248. 7000  TT$=CHR$(205)
  249. 7001  KEY 1," UTIL ":KEY 2,"":KEY 3,"":KEY 4,"":KEY 5,"":KEY 6,"":KEY 7,"":KEY 8,"":KEY 9,"":KEY 10,""
  250. 7002  KEY ON
  251. 7003  KEY (1) ON
  252. 7004  ON KEY (1) GOSUB 8000
  253. 7005  CLS
  254. 7006  COLOR 11
  255. 7010  LOCATE 2,25:PRINT CHR$(201);TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$CHR$(187)
  256. 7015  UU$=CHR$(177)
  257. 7020  LOCATE 3,25:PRINT CHR$(186);"  ";UU$UU$UU$;" ";UU$UU$UU$;"      ";UU$UU$UU$;" ";UU$;"   ";UU$;" ";UU$;"  ";CHR$(186)
  258. 7030  LOCATE 4,25:PRINT CHR$(186);"  ";UU$;" ";UU$;" ";UU$;"        ";UU$;"   ";UU$;"   ";UU$;" ";UU$;"  ";CHR$(186)
  259. 7040  LOCATE 5,25:PRINT CHR$(186);"  ";UU$UU$UU$;" ";UU$;"   ";CHR$(176)CHR$(176)CHR$(176);"  ";UU$UU$;"  ";UU$;"   ";UU$;" ";UU$;"  ";CHR$(186)
  260. 7050  LOCATE 6,25:PRINT CHR$(186);"  ";UU$;"   ";UU$;"        ";UU$;"   ";UU$;"    ";UU$;"   ";CHR$(186)
  261. 7060  LOCATE 7,25:PRINT CHR$(186);"  ";UU$;"   ";UU$UU$UU$;"      ";UU$;"   ";UU$UU$UU$;"  ";UU$;"   ";CHR$(186)
  262. 7070  LOCATE 8,25:PRINT CHR$(200);TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$TT$CHR$(188);" ";CHR$(3)
  263. 7075  COLOR 7
  264. 7080  LOCATE 9,20:PRINT "Copyright (c)  - 1984 - by D.A. Gullickson"
  265. 7082  'LOCATE 10,30:PRINT "    (c) - 1984 -   "
  266. 7085  LOCATE 12,30:PRINT "PC-FLY ``FLITEPLN''"
  267. 7090  LOCATE 10,34:PRINT "Version 2.0"
  268. 7095  'LOCATE 11,29:PRINT "                      "
  269. 7096  'LOCATE 13,18:PRINT "Distributed under the ``YOU-TELL-ME'' concept."
  270. 7100  'LOCATE 14,22:PRINT "This means that if you use this program   "
  271. 7110  'LOCATE 15,19:PRINT "your only obligation is that You MUST tell me"
  272. 7120  'LOCATE 16,19:PRINT "if it is of value and any changes you would "
  273. 7125  'LOCATE 17,19:PRINT "like to see in subsequent versions. Thanks!    "
  274. 7130  LOCATE 15,31:PRINT "D.A. Gullickson"
  275. 7140  LOCATE 16,31:PRINT "219 Custer"
  276. 7150  LOCATE 17,31:PRINT "Lander, Wyoming  82520"
  277. 7180  '
  278. 7190  PRINT
  279. 7200  LOCATE 21,1:COLOR 11:PRINT "                          Press any key to continue ......":COLOR 7
  280. 7205  PRINT "(Press F1 for Utilities)
  281. 7230  X$=INKEY$: IF X$=""THEN 7230
  282. 7240  GOTO 18
  283. 7250  '
  284. 7297  '
  285. 7298  '
  286. 7300  CLS:PRINT:PRINT "                       PC-FLY ``FLITEPLN'' DOCUMENTATION"
  287. 7310  PRINT
  288. 7320  PRINT "PC-Fly presently includes ``FLITEPLN '' a program which is written to be       "
  289. 7330  PRINT "practical and useful for the busy pilot.  It only requires that essential      "
  290. 7335  PRINT "information which all pilots use when planning a flight.  Data which can be    "
  291. 7340  PRINT "readily obtained from a chart is not included in the program."
  292. 7350  PRINT
  293. 7360  PRINT "User enters:  1)  estimated groundspeed"
  294. 7362  PRINT "              2)  fuel/hour"
  295. 7363  PRINT "              3)  departure airport and checkpoints"
  296. 7364  PRINT "              4)  leg distance between checkpoints"
  297. 7365  PRINT
  298. 7370  PRINT "PC-FLY ``FLITEPLN'' then calculates DISTANCE:  total & to-go, TIME:  leg,      "
  299. 7380  PRINT "cumulative & total in hr. & min., FUEL:  per leg, cumulative, & total for      "
  300. 7390  PRINT "flight.  It also prints hard copy as needed."
  301. 7400  PRINT
  302. 7410  PRINT "PC-Fly ``FLITEPLN'' saves flight routes in files for future use AND can be re- "
  303. 7420  PRINT "used with different groundspeed and fuel rates added as needed."
  304. 7422  PRINT
  305. 7423  PRINT "PC-FLY ``FLITEPLN'' is made available through the";:COLOR 10:PRINT "``YOU TELL ME''";:COLOR 7:PRINT "concept. This"
  306. 7425  PRINT"means if you use this program your only obligation is to tell me if you like theprogram and what changes you would like to see in subsequent versions."
  307. 7430  LOCATE 25,20:COLOR 12:PRINT "To continue -- press any key......":COLOR 7
  308. 7440  X$=INKEY$: IF X$="" THEN 7440
  309. 7450  GOTO 7500
  310. 7500  CLS :PRINT :LOCATE 2,38:PRINT "NOTES":PRINT '  documentation
  311. 7510  COLOR 12:PRINT"1. DISCLAIMER:  !!!!!  USE THIS PROGRAM AT YOUR OWN RISK !!!!!  There is no    "
  312. 7520  PRINT"                guarantee as to the accuracy of data or calculations.  User's  "
  313. 7530  PRINT"                usual method of calculating flight plan data must be done to   "
  314. 7540  PRINT"                check accuracy.!!!!!!":COLOR 7
  315. 7550  PRINT
  316. 7560  PRINT "2. FILE NAMES: Use ``filename$.X '' so they will show with ``*.X '' when save  "
  317. 7570  PRINT "               and load commands required.  i.e. ``FAR-SLC.X '' (only route    "
  318. 7580  PRINT "               files will then be shown)  ":PRINT
  319. 7590  PRINT "3. WAYPOINTS:  Presently program will take 20 waypoints which could obviously  "
  320. 7600  PRINT "               be changed by re-dimensioning, however, without super long range"
  321. 7610  PRINT "               tanks, 20 should be enough.":PRINT
  322. 7620  PRINT "4. IMPROVE-    Attempts have been made to make version 2 more ``user friendly''"
  323. 7630  PRINT "      MENTS:   The option of compress printing has been added.(Epson- other?"
  324. 7650  PRINT "               Space is now available for adding airways(ie V-128).  Numerous  "
  325. 7651  PRINT "               minor changes have been added.  The next version will have an   "
  326. 7652  PRINT "               option for printing the flight plan as well as the flight log.  "
  327. 7655  LOCATE 23,5:COLOR 12:PRINT "Return to Utilities menu -- press any key....":COLOR 7
  328. 7660  X$=INKEY$: IF X$="" THEN 7660
  329. 7670  RETURN
  330. 7697  '
  331. 7698  '
  332. 7699  '
  333. 7700  CLS ' to eliminate file
  334. 7705  ON ERROR GOTO 7760
  335. 7710  LOCATE 3,28:PRINT "FILE ELIMINATION PROGRAM"
  336. 7720  LOCATE 5,5:COLOR 3: FILES "*.X":COLOR 7
  337. 7725  ON ERROR GOTO 7770
  338. 7730  PRINT : PRINT "     ENTER NAME OF FILE TO BE ELIMINATED ";:COLOR 3: INPUT "   ",FILENAME$:COLOR 7
  339. 7735  IF FILENAME$= "" THEN RETURN
  340. 7741  LOCATE 22,1:PRINT "                                                                             "
  341. 7742  LOCATE 23,1:PRINT "                                                "
  342. 7743  LOCATE 23,1:BEEP:INPUT "     ARE YOU SURE  (Y/N) ? [Y]",QR$
  343. 7750  IF QR$ ="Y" OR QR$ ="y" OR QR$="" THEN GOTO 7755 ELSE 7756
  344. 7755  KILL FILENAME$
  345. 7756  ON ERROR GOTO 0
  346. 7757  RETURN
  347. 7758  '
  348. 7759  '''' error handling routine
  349. 7760  CLS:PRINT :PRINT :PRINT "                  THERE ARE NO FLIGHT PLAN FILES DEFINED":COLOR 7:FOR B=1 TO 4000:NEXT:RESUME 7756
  350. 7768  '
  351. 7769  '
  352. 7770  LOCATE 22,1:COLOR 10:CLOSE:PRINT "   *********  Sorry, no file by that name found.  Please re-enter.  *********":COLOR 6:RESUME 7705
  353. 7780  ON ERROR GOTO 0
  354. 7798  '
  355. 7799  '
  356. 7800  CLS  '     directions for autoexec.bat
  357. 7810  LOCATE 2,25:PRINT "DIRECTIONS FOR SELF-BOOTING DISK"
  358. 7820  LOCATE 5,15:PRINT "1.  Format disk with /s (FORMAT B:/S)"
  359. 7830  LOCATE 7,15:PRINT "2.  Copy basica to your disk  (COPY BASICA B:)"
  360. 7840  LOCATE 9,15:PRINT "3.  Under DOS prompt B> type :"
  361. 7845  LOCATE 10,15:PRINT "          (assuming disk in drive B:)"
  362. 7850  LOCATE 12,15:PRINT "         B>COPY CON:AUTOEXEC.BAT   <CR>"
  363. 7860  LOCATE 13,15:PRINT "           BASICA FLITEPLN.BAS     <CR>"
  364. 7870  LOCATE 14,15:PRINT "                                   <F6>,<CR>"
  365. 7880  LOCATE 15,15:PRINT ""
  366. 7890  LOCATE 20,18:COLOR 12:PRINT "Utilities Menu - press any key...":COLOR 7
  367. 7893  X$=INKEY$:IF X$="" THEN 7893
  368. 7895  RETURN
  369. 8000  CLS ''
  370. 8010  KEY OFF : KEY (1) OFF
  371. 8020  PRINT :PRINT "                                 UTILITIES"
  372. 8030  LOCATE 7,18:PRINT "<1> USE TO ELIMINATE A FLIGHT ROUTE FILE"
  373. 8040  LOCATE 9,18:PRINT "<2> DOCUMENTATION"
  374. 8045  LOCATE 11,18:PRINT "<3> INSTRUCTIONS FOR MAKING SELF-BOOTING DISK"
  375. 8047  LOCATE 13,18:PRINT "<4> CREATE 2 SAMPLES ROUTE FILES TO DEMONSTRATE PROGRAM"
  376. 8048  LOCATE 14,30:PRINT "( FAR-SLC.X   &   FAR-RST.X )"
  377. 8050  LOCATE 16,18:PRINT "<5> ";:COLOR 11:PRINT "RETURN TO FLIGHT PLAN PROGRAM":COLOR 7
  378. 8055  'LOCATE 18,18:PRINT "<6> CHANGE PRINTER TO COMPRESSED SIZE    "
  379. 8060  X$=INKEY$:IF X$="" THEN 8060
  380. 8070  IF X$="1" THEN GOSUB 7700
  381. 8080  IF X$="2" THEN GOSUB 7300
  382. 8085  IF X$="3" THEN GOSUB 7800
  383. 8087  IF X$="4" THEN GOSUB 8500
  384. 8088  'IF X$="6" THEN GOSUB 8600
  385. 8090  IF X$="5" THEN GOTO 15 'actually going to 7000 via 15 for color
  386. 8100  GOTO 8000
  387. 8110  RETURN
  388. 8497  '
  389. 8498  '
  390. 8500  OPEN "FAR-RST.X" FOR OUTPUT AS #1
  391. 8510   WRITE #1,"FAR";4;"V2";"AXN";82;"V171";"DWN";62;"V171";"FGT";61;"V82-161";"RST";57
  392. 8520  CLOSE
  393. 8522  OPEN "FAR-SLC.X" FOR OUTPUT AS #1
  394. 8523   WRITE #1,"FAR";8;"V344";"ABR";102;"V263";"PIR";98;"V26";"PHP";68;"V26";"RAP";59;"V26";"CSP";152;"V235";"RKS";151;"V4S-6";"FBR";65;"V32";"SLC";77
  395. 8524  CLOSE
  396. 8525  CLS:LOCATE 10,22:PRINT "***** FILES CREATED *****":FOR Y=1 TO 2000:NEXT
  397. 8530  RETURN
  398. 8597  '
  399. 8598  '
  400. 8599  'change print size to compressed
  401. 8600  CLS:LOCATE 2,25:PRINT "TO CHANGE PRINT TO COMPRESSED SIZE"
  402. 8610  PRINT :PRINT "This will work with Epson printers but I'm uncertain as to other printers."
  403. 8620  PRINT :PRINT "    1.  press <ctrl> <break> "
  404. 8630  PRINT "    2.  type ``LIST 4005 ''<C/R> and you will see the following:"
  405. 8640  COLOR 10:PRINT :PRINT "           4005 REM LPRINT CHR$(15) CHR$(27) CHR$(48)"
  406. 8650  COLOR 7:PRINT :PRINT "    3.  using the cursor and the Del key remove the ``REM'' so it reads:"
  407. 8660  PRINT:COLOR 10:PRINT "           4005 LPRINT CHR$(15) CHR$(27) CHR$(48)"
  408. 8670  COLOR 7:PRINT :PRINT "    4.  with the cursor on the same line (4005) press <C/R>"
  409. 8680  PRINT "    5.  to return to regular size print just add the REM again"
  410. 8690  PRINT "    6.  if one desires that this be a permanent change it must be resaved."
  411. 8692  PRINT :PRINT "        type ";:COLOR 10:PRINT "SAVE ``FLITEPLN.BAS'' ";:COLOR 7:PRINT "<C/R> and the changes should be permanent."
  412. 8694  LOCATE 22,18:COLOR 12:PRINT "Utilities Menu - press any key...":COLOR 7
  413. 8695  X$=INKEY$:IF X$="" THEN 7893
  414. 8696  RETURN
  415. 9000  '
  416. 9010  '
  417. 9015  '  to clear prev. route
  418. 9020  FOR N = 1 TO N
  419. 9030    D(N)=0
  420. 9040  NEXT
  421. 9050  RT=0
  422. 9060  RETURN
  423. 10000  END'REVISION 2.0          8/1984
  424. 10010  '
  425. 10020  '1.  error trapping added for turned off printer  4000
  426. 10030  '2.  error trapping added for mistaken file entry (file not found)  6000
  427. 10040  '3.  defaults added to yes and no questions
  428. 10050  '4.  changes made to run under dos 2.0
  429. 10060  '5.  error trapping added for file elimination 7700
  430. 10070  '6.  able to run compressed form with Epson printers - remove REM from
  431. 10080  '    line # 4005
  432. 10500  '7.  added space for airways ie v-128
  433.